﻿Imports System.Xml.Serialization

<XmlRoot("IntArray")> Public Class tagIntArray
    Inherits tagBase

    <XmlElement("Value")> Public Value As New List(Of tagInt)

    Public Sub New()

    End Sub

    Friend Sub New(ByVal str As System.IO.Stream)
        MyBase.New(str)

        Dim Len As UInt32
        Len = BitConverter.ToUInt32(ReadBytesFromStream(str, 4).Reverse.ToArray, 0)

        For i = 0 To Len - 1
            Dim NewTag As New tagInt
            DirectCast(NewTag, tagInt).Value = BitConverter.ToInt32(ReadBytesFromStream(str, 4).Reverse.ToArray, 0)
            Value.Add(NewTag)
        Next
    End Sub
End Class
